Top 10k strings from LSD (1984)(CRL Group).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   8 A(b,c2)=c0
   6 c13,c0;g$;
   5 c21,c21+f;
   5 c21,(c23+f);
   4 c0;"        ";
   3 i=A(b,c1):
   3 f,c0;"ON ";v$;
   3 c20,c0;g$;
   3 c18,c0;A$(b);
   3 c16,c0;g$;
   3 c15,c0;g$;
   3 c14,c0;g$;
   3 B(z,c7)=c1
   3 A(x,c1)<c1
   2 w=w-(D(z,c7)*D(z,b))+(D(z,b)*x):
   2 w=w+(C(x,c7)*C(x,b)):
   2 c7,c25;"  ";
   2 c6;"     ";
   2 c22;C(x,c7);
   2 c21;"TO 1"
   2 c21,c29+f;
   2 c21,c22+f;
   2 c21,c0;g$;
   2 c21,(f+c23);
   2 c20;D(x,c7);
   2 c20,c0;"TYPE COMMODITY NUMBER IF YES";
   2 c1;"________________________________";
   2 c1;"____________________";
   2 c1;"NO MORE BETS":
   2 c1;"NEXT PLAYER":
   2 c1;"INVALID AMOUNT":
   2 c1;"INVALID AMOUNT - TRY AGAIN":
   2 c17,c0;g$;
   2 c16;C(x,c8);
   2 c15,c0;"You have available to invest";
   2 c13;D(x,c8);
   2 c13,c22;w:
   2 c13,c22;"        ";
   2 c0;"Amount charged `";i;
   2 c0,c5;"Property Development";
   2 I(b,s)=c0:
   2 I(b,c3)=c0:
   2 I(b,c2)=c0:
   2 I(b,c1)=c0:
   2 D(z,c7)=x:
   2 C(x,c7)=c10
   2 C(x,c7)<c10
   2 A(y,c1)<c1
   2 A(u,c1)<c1
   2 A(b,c4)=w:
   2 A(b,c2)=c2:
   2 A(b,c2)=c0:
   2 A(b,c1)=A(b,c1)-y:
   2 A(b,c1)=A(b,c1)-i:
   2 A(b,c1)=A(b,c1)+y:
   2 ;"DO NOT STOP TAPE";
   2 8800000000000888888888
   2 0000000000000000000000000000000000000000000000000000000000000000
   2 -c24,c0,.5
   2 **((((((())
   2 (z+c1),c20;D(z,c7):
   2 (z+c1),c20;"      ";
   2 (x+c1),c22;"      ";
   2 (x+c1),c0;x;" ";D$(x);
   2 (x+c1),c0;x-c1;
   2 (x+c1),c0;g$;
   2 (C(x,c7)*z/cc):
   1 z=C(x,c7)*((
   1 y=f*D(x,c7):
   1 y=f*C(x,c7)
   1 y=cb*(f+c1):
   1 y=c2+(x*c2):
   1 y=I(b,c3)+
   1 y=E(s,x)*E(s,(x+c7)):
   1 y=D(x,c7)-c1
   1 y=D(x,c7)*f
   1 y,c0;A$(x);
   1 x?BB@DBBBbD
   1 x,c31;" ":
   1 w=w+(D(x,c7)*D(x,b)):
   1 w=w+(D(x,b)*D(x,c7)):
   1 w=w+(C(y,b)*C(y,c7)):
   1 w=w+(C(x,b)*C(x,c7))
   1 w,c0;A$(z);" wins at ";B(x,(c9+z));":1-`";u:
   1 w+w+w+w+w+>>w
   1 ven    Number";
   1 v$="BLACK"
   1 v$=" BLACK"
   1 v$="   RED"
   1 udg       
   1 u=B(x,z)*B(x,(c9+z)):
   1 t         
   1 s=F(z,(x+c1))*c17:
   1 n,c24;"      ":
   1 n,c23;"       ":
   1 n,c22;" ":
   1 n,c22;"          ":
   1 n,c21;"           ":
   1 n,c20;"------":
   1 n,c11;"                     ":
   1 n,c0;"  ":
   1 n,c0;"              ";
   1 lack    Any";
   1 h88888           
   1 f=(f*c10)+
   1 f,c0;"ON ";x;
   1 f$(f+c1)="
   1 f$(c1)="r"
   1 f$(c1)="o"
   1 f$(c1)="l"
   1 f$(c1)="h"
   1 f$(c1)="e"
   1 f$(c1)="b"
   1 f$(c1)="R"
   1 f$(c1)="O"
   1 f$(c1)="L"
   1 f$(c1)="H"
   1 f$(c1)="E"
   1 f$(c1)="B"
   1 c9,c7;"12";
   1 c9,c5;"Investment";
   1 c9,c4;"15";
   1 c9,c24;"     ":
   1 c9,c1;"18";
   1 c9,c19;"   ";
   1 c9,c17;"3":
   1 c9,c14;"6";
   1 c9,c14;"   ";
   1 c9,c13;"Property";
   1 c9,c12;"            ";
   1 c9,c11;"9"
   1 c8;A(x,c3);
   1 c8;"Shares";
   1 c8,c8,-cg:
   1 c8,c3;"Property:";
   1 c8,c21;"    ";
   1 c8,c20;"`";I(b,c3);
   1 c8,c19;"   ";
   1 c8,c14;"   ";
   1 c8,c0;"Current Value";
   1 c7;"GREYHOUND DERBY":
   1 c7;"    ";
   1 c7;"     ";
   1 c7;"                   ":
   1 c7;"                        ":
   1 c7,c25;" ";
   1 c7,c13;"Stock Exchange";
   1 c7,c10;" ":
   1 c7,c0,-ch:
   1 c6;g$;g$;g$;g$
   1 c6;"     ":
   1 c6;"       ":
   1 c6;"        ";
   1 c6,c9;"  ";
   1 c6,c7;"11";
   1 c6,c4;"14";
   1 c6,c3;"Share Value";
   1 c6,c22;"    ";
   1 c6,c20;"0";
   1 c6,c1;"17";
   1 c6,c17;"2";
   1 c6,c14;"5";
   1 c6,c11;"8";
   1 c6,c0;"Stage Payment";
   1 c6,c0;"  ";
   1 c5;g$;g$;g$;g$;g$;g$;g$;
   1 c5;"GREYHOUND DERBY":
   1 c5;"        "
   1 c5;"               ":
   1 c5,c4;"   ":
   1 c5,c13;"Horse Racing";
   1 c4;g$;g$;g$;g$
   1 c4;"      ";
   1 c4;"        ";
   1 c4;"               
   1 c4,c4;"   ";
   1 c4,c3;"Liquidity";
   1 c4,c25;"       "
   1 c4,c22;"HOSPITAL";
   1 c4,c22;" POLICE ";
   1 c4,c20;"`";I(b,c1);
   1 c4,c20;"PRICES":
   1 c4,c0;"Amount invested";
   1 c3,c7;"10";
   1 c3,c5;"No.";
   1 c3,c4;"13";
   1 c3,c4;"   ";
   1 c3,c24;"     ";
   1 c3,c1;"16";
   1 c3,c17;"1";
   1 c3,c14;"4";
   1 c3,c13;"Type";
   1 c3,c11;"7";
   1 c2;"TAX DEMAND":
   1 c2;"POOLS WIN":
   1 c2;"EMERGENCY"
   1 c28;C(x,b);
   1 c28;C(x,b):
   1 c24;A(x,c4);
   1 c24;"Commod'y";
   1 c21;A$(b);
   1 c21;"`";I(b,c3);
   1 c21;"`";I(b,c2);
   1 c21;"`";I(b,c1);
   1 c21;"`";A(b,c4)
   1 c21;"`";A(b,c3);
   1 c21;"`";A(b,c1);
   1 c21;" to 1"
   1 c21,c9;"in ";I$(u):
   1 c21,c8;"Valued at `";y:
   1 c21,c8;"TO GAOL":
   1 c21,c5;"UNTIL YOU HAVE `3000":
   1 c21,c5;"      THEY'RE OFF     ":
   1 c21,c4;"Input Number of players":
   1 c21,c3;"Copy result? - Type y or n":
   1 c21,c2;"for `";x:
   1 c21,c2;"for `";w:
   1 c21,c2;"PERHAPS THERE ARE SOME BUYERS":
   1 c21,c24;"        ":
   1 c21,c21;"           "
   1 c21,c20+f;
   1 c21,c10;"TRY SELLING":
   1 c21,c10;"ELSE ANY KEY":
   1 c21,c0;"will be released next turn      ":
   1 c21,c0;"to meet your stage payment":
   1 c21,c0;"per unit-value `";y:
   1 c21,c0;"otherwise enter any key":
   1 c21,c0;"by ";y;"%":
   1 c21,c0;"at ";E(u,(y+c7));" TO 1":
   1 c21,c0;"Your stage payment is now due":
   1 c21,c0;"You also needed hospitalisation"
   1 c21,c0;"Try Again!!!!!!!!":
   1 c21,c0;"TYPE NUMBER";
   1 c21,c0;"PLAYER ";x;" ENTER NAME";
   1 c21,c0;"Liquid Cash is now `";A(x,c1):
   1 c21,c0;"IN ";D$(f):
   1 c21,c0;"FOR THIS TYPE - TRY AGAIN       ":
   1 c21,c0;"Else type any key":
   1 c21,c0;"Cash available `";A(b,c1):
   1 c21,c0;"Cash available `";A(b,c1)
   1 c21,(g+c23);" ":
   1 c20;"`";I(b,c3);
   1 c20;"`";I(b,c2);
   1 c20;"`";I(b,c1);
   1 c20;"`";A(b,c1);
   1 c20,c7;"No. Purchased: ";f;
   1 c20,c6;"to be sold":
   1 c20,c6;"ELSE TYPE ANY KEY":
   1 c20,c6;"DO NOT ENTER AGAIN";
   1 c20,c5;"ALL SHARES RISE BY ";z;"%":
   1 c20,c5;"ALL SHARES FALL BY ";z;"%":
   1 c20,c3;"TYPE SHARE NUMBER IF YES";
   1 c20,c3;"Evens  "
   1 c20,c2;B$(x);" WINS by ";31
   1 c20,c2;"by ";A$(y);
   1 c20,c2;"Spectrum Banking Associates";
   1 c20,c20;A$(x)
   1 c20,c20;"            ";
   1 c20,c1;"to bet ELSE ENTER ANY OTHER KEY":
   1 c20,c13;"`";x:
   1 c20,c10;"immediately":
   1 c20,c10;"`";k:
   1 c20,c10;"NEXT PLAYER":
   1 c20,c0;g$:
   1 c20,c0;D$(x);" futures at `";D(x,c7);
   1 c20,c0;A$(x)
   1 c20,c0;"who robbed you of `";k;"."
   1 c20,c0;"production, prices have fallen";
   1 c20,c0;"prices have risen by ";y;"%":
   1 c20,c0;"on ";E$(u);
   1 c20,c0;"into custody"
   1 c20,c0;"but they got nothing."
   1 c20,c0;"at ";B(z,c7);" to 1"
   1 c20,c0;"a fine of 10% of your cash and  ";
   1 c20,c0;"You win `";y;
   1 c20,c0;"You do not have enough money";
   1 c20,c0;"YOU DO NOT HAVE ANY UNITS";
   1 c20,c0;"TYPE HORSE NUMBER TO BET";
   1 c20,c0;"Profit realised `";(y-I(b,c1)):
   1 c20,c0;"ENTER number of units required":
   1 c20,c0;"ENTER number of shares required":
   1 c20,c0;"ENTER bet for ";B$(z):
   1 c20,c0;"Available money `";A(b,c1):
   1 c20,c0;"    convalescing in hospital    ":
   1 c2,c4;"No Name         Odds"
   1 c2,c3;"Name";
   1 c2,c28;"    ";
   1 c2,c21;"GILT";
   1 c2,c1;"No Type       Stage Payment":
   1 c2,c0;"No"
   1 c2,c0;"Cash";
   1 c1;cr,c64:
   1 c1;c96-c2,c0:
   1 c1;c40,-c8:
   1 c1;E$(s);" wins"
   1 c1;D$(z);" FUTURES:";
   1 c1;D$(x);" FUTURES:";
   1 c1;C$(x);" Shares fall":
   1 c1;"___________________________";
   1 c1;"_____________________";
   1 c1;"________________";
   1 c1;"_______________";
   1 c1;"_____________";
   1 c1;"_____________"
   1 c1;"You already bet on this horse":
   1 c1;"YOUR INVESTMENT IS TOTALLY LOST":
   1 c1;"YOU HAVE NO SHARES IN ";C$(x):
   1 c1;"YOU DON'T HAVE ";f;" SHARES":
   1 c1;"YOU DO NOT HAVE ENOUGH MONEY    ";
   1 c1;"YOU DO NOT HAVE ";f;" UNITS":
   1 c1;"UNDER STARTER'S ORDERS":
   1 c1;"THREAT OF GENERAL ELECTION":
   1 c1;"THEY'RE OFF":
   1 c1;"TARGET ACHIEVED";
   1 c1;"OUT OF DANGER":
   1 c1;"New Game? - Type y or n":
   1 c1;"NO ONE WINS":
   1 c1;"NO ONE WINS"
   1 c1;"INVALID TYPE - TRY AGAIN        ":
   1 c1;"INVALID SELECTION";
   1 c1;"INVALID REQUEST - TRY AGAIN":
   1 c1;"INVALID REQUEST - TRY AGAIN     ":
   1 c1;"INVALID AMOUNT-TRY AGAIN":
   1 c1;"FORECAST TAX CUTS OF 25%":
   1 c1;"ENTER BID FOR YES ELSE ANY KEY":
   1 c1;"    ":
   1 c1;"     ":
   1 c19,c5;"made a bid of";
   1 c19,c4;"You have invested `";x;
   1 c19,c4;"TYPE Share Number if yes";
   1 c19,c3;"You have bought ";C$(x);;
   1 c19,c3;"Maximum Amount    `9999999":
   1 c19,c3;"However, you were released";
   1 c19,c2;"You have been bought out";
   1 c19,c2;"You have been bought out by";
   1 c19,c2;"No one wants to buy you out";
   1 c19,c2;"NO-ONE IS SELLING SHARES NOW";
   1 c19,c20;A$(x)
   1 c19,c20;"  ";
   1 c19,c1;"YOUR INVESTMENT STATUS IS NOW":
   1 c19,c1;"Type R,B,O,E,L,H or the number";
   1 c19,c10;"ENTER AMOUNT":
   1 c19,c0;g$;
   1 c19,c0;g$:
   1 c19,c0;A$(x)
   1 c19,c0;"the officials and have been sent";
   1 c19,c0;"sold for `";y;
   1 c19,c0;"set upon by a gang of muggers":
   1 c19,c0;"invest in property development";
   1 c19,c0;"invest in ";I$(c1):
   1 c19,c0;"evasion and have been taken";
   1 c19,c0;"by ";x;"% to `";y;
   1 c19,c0;"`";f;" on ";B$(z);
   1 c19,c0;"You have bought ";f;" units of";
   1 c19,c0;"You have bet `";E(u,y);
   1 c19,c0;"You bet `";E(s,x);" at ";E(s,(x+c7));" TO 1";
   1 c19,c0;"YOU DO NOT HAVE ENOUGH TO INVEST";
   1 c19,c0;"YOU DO NOT HAVE ENOUGH MONEY TO";
   1 c19,c0;"MARKET CLOSED FOR BUYING FUTURES";
   1 c19,c0;"However,you have arranged to pay";
   1 c19,c0;"ENTER number of units to be sold":
   1 c19,c0;"ENTER no. of ";C$(x);" shares";
   1 c19,c0;"ENTER bet for ";E$(u):
   1 c19,c0;"Do you wish to purchase shares?";
   1 c19,c0;"CONSTRUCTION CONTINUES":
   1 c19,c0;"-opment do you wish to invest";
   1 c19,c0;"   ";A$(b);", you are still    ";
   1 c18;"`";(x*3000
   1 c18,c3;"PRESS ANY KEY TO CONTINUE"
   1 c18,c2;"Spectrum Banking Associates";
   1 c18,c21;" ";
   1 c18,c20;A$(x)
   1 c18,c0;g$;
   1 c18,c0;A$(x);":";
   1 c18,c0;A$(x);", you have bet";
   1 c18,c0;A$(x);", any further bets?":
   1 c18,c0;A$(x);" do you wish to bet?"
   1 c18,c0;A$(x):
   1 c18,c0;A$(x)
   1 c18,c0;A$(b);" you are still in GAOL";
   1 c18,c0;"Your investment has appreciated";
   1 c18,c0;"You only have enough money to";
   1 c18,c0;"You have `";A(u,c1);":";
   1 c18,c0;"You do not have enough money to";
   1 c18,c0;"You do not have enough money to bet":
   1 c18,c0;"You do not have any money to bet":
   1 c18,c0;"You are also suspected of tax";
   1 c18,c0;"Which gamble, ";A$(b);"?":
   1 c18,c0;"The development is complete and";
   1 c18,c0;"In which type of property devel-";
   1 c18,c0;"Do you wish to sell your shares?";
   1 c18,c0;"Do you wish to sell your futures";
   1 c18,c0;"Do you wish to buy futures?";
   1 c17,c3;"Minimum Amount      `20000";
   1 c17,c2;"You have `";A(x,c1);
   1 c17,c0;"PLAYERS AT TARGET `";ca;":"
   1 c17,C0;"else type any letter":
   1 c16;I(x,c3);
   1 c16;"Prop'ty";
   1 c16,c2;"over this development?";
   1 c16,c0;g$:
   1 c16,c0;"`";A(b,c1)
   1 c16,c0;"TYPE DOG NUMBER IF YES";
   1 c16,c0;"No. of Days ";bb
   1 c15,c3;"Recommended Amount `100000";
   1 c15,c3;"Day No.";
   1 c15,c2;"Do you wish to bid to take";
   1 c15,c13;"Mini-Roulette"
   1 c15,c0;"Your liquid cash is `";A(b,c1):
   1 c14,c19;"  ";
   1 c14,c10;"NEXT PLAYER":
   1 c14,c10;"Collector of Taxes";
   1 c14,c0;g$:
   1 c14,c0;A$(z);" wins:"
   1 c14,c0;A$(x);
   1 c14,c0;"You have available `";A(y,c1);
   1 c13,c4;"ENTER TARGET AMOUNT IN `";
   1 c13,c3;"Commodity Value";
   1 c13,c24;"              
   1 c13,c19;" 
   1 c13,c14;"   ";
   1 c13,c13;"Commodities Market";
   1 c13,c0;g$:
   1 c13,c0;"Value of shares held `";w;
   1 c13,c0;"Value of futures held `";w;
   1 c13,c0;"Value of futures held `";w:
   1 c13,c0;"Value of futures held `";w
   1 c13,c0;"Value of Shares held `";w;
   1 c13,c0;"Do you wish to bet ";A$(y);"?"
   1 c13,c0;"Any further bets ";A$(y);"?":
   1 c12,c9;"WHO  HAS  WON":
   1 c12,c7;"Winning Number ";x;v$:
   1 c12,c24;"              ";
   1 c12,c20;"`";A(b,c1):
   1 c12,c20;"           ";
   1 c12,c1;A$(u);", Enter your bets";
   1 c12,c19;"  ";
   1 c12,c14;"   ";
   1 c12,c0;"Liquidity";
   1 c11,c5;"Current Value";
   1 c11,c13;"Dog Racing";
   1 c11,c12;"            ";
   1 c10;"`";s:
   1 c10;"`";F(z,y):
   1 c10;"`";F(z,w):
   1 c10;"`";F(z,v):
   1 c10,c9;" "
   1 c10,c5;"Stage Payment";
   1 c10,c15;A$(b);
   1 c10,c13;A$(b);
   1 c10,c12;"            ";
   1 c10,c0;"Stage ";z;" of ";I$(u)
   1 c1,c8;"Gamble Selection";
   1 c0;x;" ";E$(x);
   1 c0;x;" ";B$(x):
   1 c0;f$(f-c1):
   1 c0;f$(f+c1):
   1 c0;"on your stock holdings":
   1 c0;"on your property investment":
   1 c0;"on your gambling winnings":
   1 c0;"on your commodity holdings":
   1 c0;"You have won a first dividend of";
   1 c0;"You have to pay tax at "
   1 c0;"You have been caught bribing";
   1 c0;"You have available `";A(x,c1);
   1 c0;"World shortages forecast and";
   1 c0;"O.H.M.S";
   1 c0;"No Name        Odds"
   1 c0;"LITTLEWOODS";
   1 c0;"FATE INTERVENES":
   1 c0;"Due to forecast over-";
   1 c0;"As you left home, you were";
   1 c0;"       ":
   1 c0;"         ":
   1 c0;"                   ":
   1 c0;"                        ":
   1 c0,c9;"ASCOT GOLD CUP";
   1 c0,c7;"Greyhound Derby";
   1 c0,c5;"GAMBLER - END OF GAME";
   1 c0,c10;"MINI-ROULETTE";
   1 c0,c10;"CURRENT SCORE";
   1 c0,c0;g$;g$;g$;g$;"        ";
   1 c0,c0;"Stock Name  No.Avail. Price Held":
   1 c0,c0;"Stock Name  No.Avail. Price Held"
   1 c0,c0;"No Name     On Mkt. Price Held"
   1 c0,c0;"              ";
   1 b;"ASCOT GOLD CUP";
   1 all code  
   1 `sd       
   1 Xg>hw#w#w#w
   1 Xg>8w#w#w#w#w#w#w
   1 T         
   1 Sinclair  Plessey   W.H.SmithsThorn EMI PrudentialTesco's   Ferranti  Rothmans  CourtauldsGuinness  
   1 LittleWolfCentrolinePrince MayKhairpour Red Injun Rivellino Ballitou  Runaway   Ore       
   1 I(y,s)=I(b,s):
   1 I(b,c3)=y+I(b,c2):
   1 I(b,c3)=x:
   1 I(b,c2)=x:
   1 I(b,c1)=x:
   1 I(b,c1)=I(b,c1)+I(b,c2):
   1 I'm SlippyBig HerbieGay SpiritGame Ball Tally Ho  On Spec   g
   1 H         
   1 Gold      Silver    Copper    Cocoa     Coffee    Sugar     Wheat     Rubber    
   1 Flats     Terraces  Town HouseSemi's    Detached  
   1 F(z,(x+c1))>c0
   1 F(u,w)=F(u,w)+f:
   1 F(c6,c25):
   1 E(x,c7)>c1
   1 E(x,c7)=c1:
   1 E(x,c7)<c2
   1 E(u,y)=E(u,y)+f:
   1 E(u,c7)>c1
   1 E(u,c7)=c1:
   1 E(u,c7)=E(u,c7)-c1-
   1 E(u,c7)<c2
   1 E(u,(y+c7))=E(u,c7):
   1 E(c6,c13):
   1 D(x,c8)=D(x,c8)-f:
   1 D(x,c8)=D(x,c8)+f:
   1 D(x,c7)=cc:
   1 D(x,c7)=c50+
   1 D(x,c7)=D(x,c7)-y:
   1 D(x,c7)=D(x,c7)+z+
   1 D(x,c7)<c50
   1 D(x,b)=D(x,b)-f:
   1 D(x,b)=D(x,b)+f:
   1 C21,C0;"Else type any key":
   1 C20,C10;"TRY SAVING":
   1 C20,C0;"INVEST-WHY DON'T YOU TRY SAVING ":
   1 C(x,c8)=C(x,c8)-f:
   1 C(x,c8)=C(x,c8)+f:
   1 C(x,c7)=C(x,c7)-
   1 C(x,c7)=C(x,c7)+y
   1 C(x,c7)=C(x,c7)+
   1 C(x,b)=C(x,b)-f:
   1 C(x,b)=C(x,b)+f:
   1 C(f,c8)<c1
   1 C(c10,c8):
   1 C(X,c8)=cb:
   1 C(X,c7)=cc:
   1 Bw#w#w#w#w#w#w
   1 B(z,x)=B(z,x)+f:
   1 B(z,c7)>c1
   1 B(z,c7)=B(z,c7)-w:
   1 B(z,c7)<c1
   1 B(z,(x+c9))=B(z,c7):
   1 B(x,y)=c0:
   1 B(x,c7)=y:
   1 B(v,c7)>c1
   1 B(v,c7)=c1
   1 B(c9,c15):
   1 A(z,c1)=A(z,c1)+u+B(x,z)
   1 A(z,c1)=A(z,c1)+s+F(z,(x+c1))
   1 A(z,c1)=A(z,c1)+(c2*F(z,y))
   1 A(z,c1)=A(z,c1)+(c2*F(z,w))
   1 A(z,c1)=A(z,c1)+(c2*F(z,v))
   1 A(y,c1)>c0
   1 A(y,c1)=A(y,c1)-w:
   1 A(y,c1)=A(y,c1)-f:
   1 A(x,c1)>c0
   1 A(x,c1)=A(x,c1)-f:
   1 A(x,c1)=A(x,c1)+y+E(s,x):
   1 A(x,c1)=A(x,c1)+cb:
   1 A(x,c1)<ca
   1 A(u,c1)=A(u,c1)-f:
   1 A(c6,c10):
   1 A(b,x)=c0:
   1 A(b,c9)=A(b,c9)+c1
   1 A(b,c8)=A(b,c8)+c1
   1 A(b,c7)=A(b,c7)+c1
   1 A(b,c6)=A(b,c6)+c1:
   1 A(b,c5)=A(b,c5)+c1
   1 A(b,c3)=w:
   1 A(b,c2)=c2
   1 A(b,c2)=c1
   1 A(b,c10)=A(b,c10)+c1
   1 A(b,c1)=A(b,c1)-x:
   1 A(b,c1)=A(b,c1)-k:
   1 A(b,c1)=A(b,c1)-I(b,c2):
   1 A(b,c1)=A(b,c1)-
   1 A(b,c1)=A(b,c1)+x:
   1 A(b,c1)=A(b,c1)+w:
   1 A(b,c1)=A(b,c1)+k:
   1 A(b,c1)=A(b,c1)+(C(x,c7)*f):
   1 A(b,c1)<6000
   1 A(b,c1)<3000
   1 A(b,c1)<(f*3000
   1 A(b,(x+c4))>c2
   1 A(b,(x+c4))=c0
   1 A(b,(f+c4))>c2
   1 A(X,c1)=(c10*cb):
   1 A$(x,f)=f$(f)
   1 A$(x,f)=" "
   1 A$(x)="          ":
   1 A$(c6,c10):
   1 ?@B|(~BBRB
   1 ;"any key to continue"
   1 ;"START TAPE":
   1 ;"DO NOT STOP TAPE":
   1 ;"ANY KEY TO CONTINUE"
   1 ;"'i' to repeat";
   1 ;"      ";
   1 ;"        ";
   1 88888888888(
   1 888888888(888=(//888888888
   1 888888888(((
   1 88888800000000000880000000
   1 888888((((((
   1 8888800000000000880000000
   1 8800000000000880000000
   1 88000000000008
   1 8800000000000
   1 -y;" length":
   1 -c96+c2,c0:
   1 -c8,-c8,cg:
   1 -c16,c16,cg*c2:
   1 ,c0;"`";A(b,c1):
   1 ,c0;"Liquid cash `";A(b,c1):
   1 ,c0,(cg/c2):
   1 *c5))/c2):
   1 *I(b,c1)*s/f)
   1 *(f/c10)+c5):
   1 *(****((/==8888888
   1 *((cb-C(x,c8))/c10))+c5:
   1 *((**((((()
   1 (z+c3),c19;B(z,c7);
   1 (z+c3),c19;"Evens  "
   1 (z+c3),c19;"       ";
   1 (y/c3)*c3):
   1 (y/c2)*c2)
   1 (y+c1),c0;A(x,c1);
   1 (y+c1),c0;
   1 (x+c3),c5;x;" ";E$(x)
   1 (x+c3),c2;x;
   1 (x+c3),c20;"EVENS"
   1 (x+c3),c19;E(x,c7);
   1 (x+c2),c5;
   1 (x+c2),c1;
   1 (x+c15),c9;
   1 (x+c15),c22;
   1 (x+c1),c22;C(x,c7):
   1 (x+c1),c22;C(x,c7)
   1 (x*cc/c2):
   1 (v+c3),c8;
   1 (v+c3),c6;v;
   1 (v+c3),c21;" to 1"
   1 (v+c3),c19;B(v,c7);
   1 (v+c3),c19;"Evens"
   1 (u+c3),c19;E(u,c7);
   1 (u+c3),c19;" EVENS "
   1 (u+c3),c19;"       ";
   1 (i/I(b,c3)*cc):
   1 (i/A(b,c4)*cc):
   1 (i/A(b,c3)*cc):
   1 (f/c10 )+c1:
   1 (I(b,c3)*x/cc):
   1 (I(b,c3)*x/cc)+I(b,c3):
   1 (I(b,c3)*k/cc)
   1 (I(b,c2)/3000
   1 (I(b,c1)/I(b,c2)):
   1 (D(z,c7)*(cc-y)/cc):
   1 (D(z,c7)*(cc+y)/cc):
   1 (D(x,c8)/c10):
   1 (C(x,c7)*y/cc):
   1 (A(b,c4)*k/cc)
   1 (A(b,c3)*k/cc)
   1 (A(b,c1)/c4)):
   1 (A(b,c1)/c10):
   1 (A(b,c1)*k/cc)
   1 ((x*c2)+c3),c8;"*"
   1 ((x*c2)+c3),c6;x
   1 ((x*c2)+c3),c0;g$
   1 (((y*z/cc)+(
   1 "all code"
   1             ";
   1                             ";
   1                                           You and your fellow players are the last of the High Rollers    and you have decided to hold a  competition to determine who is the BEST.                                                       Each of you start with `10,000  and each round your Swiss bank  account releases a further      `1,000 to supplement your       winnings (or ease the burden    of your losses).                                                The competition, on which you   have embarked, is to acquire a  target sum, in liquid cash (not investments), that will finally prove to the world who is the   sharpest Speculator.            To even out the competition,    you have agreed to limit your   activities to gambling on       Horses, Dogs & Roulette and to  investing in Stocks & Shares,   Commodity Futures and Property  Development. However, if any of you win the Pools, your winningscan be added to your cash for   further investment.                                             Unfortunately, your 
   1                                                                                                                   4                        1    2      6                    5            3      7777777777777777777777777      7777777777777777777777777      7777777777777777777777777      7777777777777777777777777      7777777777777777777777777      7777777777777777777777777      7777777777777777777777777      7777777777777777777777777      7777777777777777777777777      7777777777777777777777777      77777777777777777777777777777777777777777777777777777777
   1                                                             
   1                                 
   1